home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00259_Script_GESTION_BTON_GO < prev    next >
Text File  |  2002-09-19  |  1KB  |  45 lines
  1. property pdizsprite,pdizspriteNo, pdizguyname
  2. global gpiste_Go, gpiste_Video, gL_EtatBtons, gpiste_Pause
  3. -----------------------------
  4. on beginSprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo)
  7.   pdizguyname = pdizsprite.member.name
  8.   gpiste_Go = pdizspriteNo
  9. end
  10. ------------------
  11. on mouseEnter
  12.   if the pauseState = 1 then exit
  13.   cursor 280
  14.   pdizsprite.member = pdizguyname&"_R"
  15.   updateStage
  16. end
  17. -----------------
  18. on mouseLeave
  19.   if the pauseState = 1 then exit
  20.   cursor -1
  21.   case(gL_EtatBtons[2]) of
  22.     0:
  23.       case(gL_EtatBtons[3]) of
  24.         1:
  25.           nothing
  26.         0:
  27.           puppetSprite pdizspriteNo, FALSE
  28.       end case
  29.     1:
  30.       puppetSprite pdizspriteNo, FALSE
  31.   end case
  32.   updateStage
  33. end
  34. -------------
  35. on mouseUp
  36.   if the pauseState = 1 then exit
  37.   if soundBusy(1) then puppetSound 1, FALSE
  38.   if soundBusy(3) then puppetSound 3, FALSE
  39.   sprite(gpiste_Go).member = "BTON_GO_R"
  40.   puppetSprite gpiste_Pause, FALSE
  41.   gL_EtatBtons =  [0,0,1,0]
  42.   sprite(gpiste_Video).movieRate = 1
  43.   updateStage
  44. end
  45. -------------